home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / asmutil / afloat.zip / FABSVAL.ASM < prev    next >
Assembly Source File  |  1988-03-14  |  694b  |  37 lines
  1.        PAGE ,132
  2. ;----------------------------------------------------------
  3. ; FABSVAL -- version for use with assembly language programs
  4. ;
  5. ; Copyright Bob Kline 1988
  6. ;
  7. ; Purpose:
  8. ;       Obtain absolute value of 4-byte real
  9. ;
  10. ; Input:
  11. ;       DX:AX contains 4-byte real to be converted
  12. ;
  13. ; Output:
  14. ;       Absolute value of 4-byte real in DX:AX
  15. ;
  16. ; Other registers used:
  17. ;       none
  18. ;
  19. ; Other procedures called:
  20. ;       none
  21. ;----------------------------------------------------------
  22.         PUBLIC  FABSVAL
  23.  
  24.     .MODEL    SMALL
  25.  
  26.     .CODE
  27.  
  28. FABSVAL        PROC
  29.  
  30. ; this is all there is to it!
  31.         AND     DX,7FFFh
  32.         RET
  33.  
  34. FABSVAL        ENDP
  35.  
  36.         END
  37.